home *** CD-ROM | disk | FTP | other *** search
/ Dr. Windows 3 / dr win3.zip / dr win3 / PROGRAMR / MC00.ZIP / TVSHELL.PAS < prev   
Pascal/Delphi Source File  |  1993-05-02  |  2KB  |  73 lines
  1. uses Dos, Objects, Drivers, Memory, Views, Menus, App ;
  2.  
  3. Const
  4. {Put include files here *.CM, *.HC }
  5.  
  6. {$I s01.cm}
  7. {$I s01.hc}
  8. type
  9.  
  10.     tvapp = object(tapplication)
  11.       procedure initmenubar;virtual;
  12.     end;
  13.  
  14.  
  15.  
  16.  
  17.  
  18. procedure tvapp.initmenubar;
  19. var
  20.  r:trect;
  21. begin
  22. {------------------------------------------------------------------------}
  23. {  Use ^KR  then *.SCM to grab source from disk to insert into this file }
  24. {  Sample  delete between * before reading in another menu               }
  25. {  Change the include directives at the top of the file to match the     }
  26. {  menu name                                                             }
  27. {------------------------------------------------------------------------}
  28.  
  29.  
  30.  
  31. {*}
  32. { C:\BP\CODE\S01.SCM  MenuCase 0.0 13:43:14, 5/2/93 }
  33.  
  34. GetExtent(r);
  35. R.B.Y := R.A.Y + 1;
  36. MenuBar := new(PmenuBar,init(r,
  37. NewMenu(
  38.   NewSubMenu('~M~aintenance', hcnocontext,
  39.   NewMenu(
  40.         NewSubMenu('~C~lients', hcNoContext,
  41.         NewMenu(
  42.               NewItem('~A~dd client', 'F2',kbF2 ,CmAddClient, HcClientHint,
  43.               NewItem('~E~dit client', ' ',kbnokey,CmEditClient, HcClientHint,
  44.               NewLine(
  45.               NewItem('~D~elete client', ' ',kbnokey,CmDeleteClient, HcClientHint,
  46.         NIL))))),
  47.         NewItem('e~X~it', ' ',kbAltX,cmquit, hcnocontext,
  48.   NIL))),
  49.   NewSubMenu('~R~eports', hcNoContext,
  50.   NewMenu(
  51.         NewItem('~E~mployee reports', ' ',kbnokey,CmEmployeeReports, HcEmployeeHint,
  52.         NewSubMenu('~C~lient reports', hcNoContext,
  53.         NewMenu(
  54.               NewItem('~A~ll clients', ' ',kbnokey,CmReportAllClients, HcClientReportHint,
  55.               NewItem('~S~elect client', ' ',kbnokey,CmSelectClient, HcClientReportHint,
  56.         NIL))),
  57.   NIL))),nil)))));
  58. {*}
  59.  
  60. end;
  61.  
  62. var
  63.     Theapp:tvapp;
  64.  
  65.  
  66.  
  67. begin
  68. Theapp.init;
  69. Theapp.run;
  70. Theapp.done;
  71.  
  72.  
  73. end.